home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / PSHD_1016 < prev    next >
Text File  |  1997-08-25  |  1KB  |  23 lines
  1. statusdict begin version cvr 47.0 ge end
  2. {/w /stringwidth load def}
  3. {/w{g np 0 0 0 0 m l cp u stringwidth G}B}ifelse
  4. /smc{m dup M}B
  5. /sos{s75 cvs dup 1 79 put cvn}B
  6. /sss{s75 cvs dup 2 83 put cvn}B
  7. /sbs{s75 cvs dup 3 66 put cvn}B
  8. /sts{tpamt 0 ne{str cvs dup 4 84 put length dup tpamt s75 cvs dup length
  9.  str 4 -2 roll putinterval add str 0 3 -1 roll getinterval cvn}if}B
  10. /Z{/psy X/psx X curf
  11.  psx 0 psx usangl{.212557 mul}{pop 0}ifelse psy neg 0 0 fmtx astore makefont setfont}B
  12. /f{/psy X/psx X far exch get aload pop dup 1 and 0 ne/usangl X 2 and 0 ne/doss X dup/curf X
  13.  psx 0 psx usangl{.212557 mul}{pop 0}ifelse psy neg 0 0 fmtx astore makefont setfont}B
  14. /cf{{1 index/FID ne 2 index/UniqueID ne and{def}{p2}ifelse}forall}B
  15. /stlf{FontDirectory 2 index known{exch findfont}{3 -1 roll newmm}ifelse
  16.  3 1 roll p2}B
  17. /vtadj{dup/vtd X{90}{-90}ifelse rotate}B
  18. /nwf{count 1 roll dup maxlength dict begin cf FontType 0 ne{nmv{Encoding dup
  19.  length array copy/Encoding X counttomark 2 idiv{Encoding 3 1 roll put}repeat}
  20.  {Encoding 65 26 getinterval 0 xpv 65 26 getinterval{3 copy pop get ne{exit}if
  21.  1 add}forall exch pop 26 eq{/Encoding xpv def}if}ifelse}if currentdict end
  22.  count -1 roll exch definefont pop}B
  23.